object Form1: TForm1 Left = 200 Top = 124 HelpContext = 1 AutoScroll = False Caption = 'Heart Smart' ClientHeight = 414 ClientWidth = 633 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Label1: TLabel Left = 5 Top = -1 Width = 72 Height = 16 Caption = 'Food Items' end object Label19: TLabel Left = 8 Top = 341 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label20: TLabel Left = 43 Top = 341 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label21: TLabel Left = 85 Top = 341 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Image1: TImage Left = 271 Top = 357 Width = 50 Height = 50 Hint = 'Trash Can' DragMode = dmAutomatic ParentShowHint = False Picture.Data = {} ShowHint = True OnDragDrop = Image1DragDrop OnDragOver = Image1DragOver OnEndDrag = Image1EndDrag end object Image2: TImage Left = 271 Top = 357 Width = 50 Height = 50 DragMode = dmAutomatic Picture.Data = {} Visible = False OnDragDrop = Image1DragDrop OnDragOver = Image1DragOver OnEndDrag = Image1EndDrag end object Panel2: TPanel Left = 2 Top = 231 Width = 236 Height = 177 TabOrder = 8 object Label6: TLabel Left = 137 Top = 108 Width = 70 Height = 16 Caption = '# Servings' end object Label23: TLabel Left = 14 Top = 81 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label24: TLabel Left = 45 Top = 81 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label25: TLabel Left = 84 Top = 81 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object TabbedNotebook1: TTabbedNotebook Left = 248 Top = -1 Width = 382 Height = 230 TabsPerRow = 4 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'Arial' TabFont.Style = [] TabOrder = 1 TabStop = False OnChange = TabbedNotebook1Change object TTabPage Left = 4 Top = 27 Caption = 'Sunday' end object TTabPage Left = 4 Top = 27 Caption = 'Monday' end object TTabPage Left = 4 Top = 27 Caption = 'Tuesday' end object TTabPage Left = 4 Top = 27 Caption = 'Wednesday' end object TTabPage Left = 4 Top = 27 Caption = 'Thursday' end object TTabPage Left = 4 Top = 27 Caption = 'Friday' end object TTabPage Left = 4 Top = 27 Caption = 'Saturday' end end object ListBox1: TListBox Left = 9 Top = 19 Width = 217 Height = 210 DragMode = dmAutomatic ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 14 ParentFont = False Sorted = True TabOrder = 0 OnClick = ListBox1Click OnDblClick = Modify1Click OnEndDrag = ListBox1EndDrag OnKeyPress = ListBox1KeyPress end object Panel1: TPanel Left = 8 Top = 326 Width = 105 Height = 73 TabOrder = 5 object Shape1: TShape Left = 8 Top = 41 Width = 25 Height = 31 Brush.Color = clYellow DragMode = dmAutomatic end object Shape2: TShape Left = 41 Top = 16 Width = 25 Height = 56 Brush.Color = clFuchsia end object Shape3: TShape Left = 73 Top = 57 Width = 25 Height = 15 Brush.Color = clAqua end object Label16: TLabel Left = 12 Top = 1 Width = 16 Height = 14 Alignment = taCenter Caption = '0%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label17: TLabel Left = 45 Top = 1 Width = 16 Height = 14 Alignment = taCenter Caption = '0%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label18: TLabel Left = 76 Top = 1 Width = 16 Height = 14 Alignment = taCenter Caption = '0%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end object Edit14: TEdit Left = 155 Top = 363 Width = 37 Height = 24 AutoSize = False Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] MaxLength = 3 ParentFont = False TabOrder = 2 Text = '1' end object TabSet1: TTabSet Left = 256 Top = 199 Width = 249 Height = 21 DitherBackground = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Tabs.Strings = ( 'Breakfast' 'Lunch' 'Dinner' 'Snack') TabIndex = 0 OnChange = TabSet1Change end object TabListBox1: Ttablistbox Left = 256 Top = 32 Width = 350 Height = 169 DragMode = dmAutomatic ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ItemHeight = 14 ParentFont = False TabOrder = 3 OnDragDrop = ListBox2DragDrop OnDragOver = ListBox2DragOver OnEndDrag = TabListBox1EndDrag TabStops = 0 end object panel3: TPanel Left = 8 Top = 237 Width = 223 Height = 72 TabOrder = 10 object Label2: TLabel Left = 6 Top = 6 Width = 47 Height = 15 Caption = 'Calories' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 6 Top = 24 Width = 34 Height = 15 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 6 Top = 44 Width = 41 Height = 15 Caption = 'Protein' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 107 Top = 6 Width = 17 Height = 15 Caption = 'Fat' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object fical: TLabel Left = 79 Top = 6 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Color = clBtnFace Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object ficarbo: TLabel Left = 79 Top = 24 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Color = clBtnFace Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object fipro: TLabel Left = 79 Top = 44 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Color = clBtnFace Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label13: TLabel Left = 107 Top = 24 Width = 43 Height = 15 Caption = 'Sodium' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label14: TLabel Left = 107 Top = 44 Width = 25 Height = 15 Caption = 'Chol' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object fifat: TLabel Left = 187 Top = 7 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Color = clBtnFace Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object fina: TLabel Left = 187 Top = 25 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Color = clBtnFace Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object fichol: TLabel Left = 187 Top = 45 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Color = clBtnFace Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end end object TabSet2: TTabSet Left = 251 Top = 327 Width = 185 Height = 21 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Tabs.Strings = ( 'Meal' 'Day' 'Week' 'Avg. Day') TabIndex = 0 OnChange = TabSet2Change end object groupbox2: TPanel Left = 344 Top = 345 Width = 260 Height = 68 ParentShowHint = False ShowHint = True TabOrder = 4 object SpeedButton1: TSpeedButton Left = 194 Top = 2 Width = 32 Height = 32 Hint = 'Clear Menu' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B55555555555555750000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = ClearMenu1Click end object SpeedButton3: TSpeedButton Left = 226 Top = 2 Width = 32 Height = 32 Hint = 'Food Item Planner' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FF555FFFFFFF5FF0075500000005000775F57777777F7770B0550CC0090 50E07F7F57FF77F7F7F70B055000000050E07F75F7777777F7F70B7750CC0090 50E075F7F7F577F7F7F777B050CC009050E057F7F7F577F7F7F750B050CC0090 50E057F757F577F7F7F750B770CC009050E0575F77F577F7F7F7577B00CC0090 50E0557F77F577F7F7F7550B30CC00905000557F57FF77F7F777550B30000090 50E05575F77777F7F7F7557000CC00905000555777FF77F7F777555550000090 55555555577777F7F5555555555550005555555555555777F555555555555090 55555555555557F7F555555555555000555555555555577755550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = FoodItemPlanner1Click end object SpeedButton4: TSpeedButton Left = 258 Top = 1 Width = 32 Height = 32 end object SpeedButton5: TSpeedButton Left = 194 Top = 33 Width = 32 Height = 32 Hint = 'Order Form' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777 57705557757777775FF7555555555555000755555555555F777F555555555550 87075555555555F7577F5555555555088805555555555F755F75555555555033 805555555555F755F75555555555033B05555555555F755F75555555555033B0 5555555555F755F75555555555033B05555555555F755F75555555555033B055 55555555F755F75555555555033B05555555555F755F75555555555033B05555 555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555 5555F777F7555555555501900555555555557777755555555555099055555555 55557777555555555555500555555555555557755555555555550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 226 Top = 33 Width = 32 Height = 32 Hint = 'Register' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F5550005555559995555777555555777550000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = Register1Click end object SpeedButton7: TSpeedButton Left = 2 Top = 33 Width = 32 Height = 32 Hint = 'Print Menu' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777 7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F 7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F 7F708888888888888F8F0000000000000000888888888888888F3330BBBBBBBB 03333338F3FFFF3F8F333330B0000B0B03333338F88883838F333330BBBBBBBB 03333338F3FF3FFF8F333330B00B000003333338F883888883333330BBBB0FF0 33333338F3FF8F3833333330B07B0F0333333338F8838F8333333330BBBB0033 33333338FFFF8833333333300000033333333338888883333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PrintMenu1Click end object SpeedButton8: TSpeedButton Left = 34 Top = 33 Width = 32 Height = 32 Hint = 'Print Shopping List' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0777777777777770888888888888888F077777777777 7770888888888888888F0000000000000000FFFFFFFFFFFFFFFF0F7F7F7F7F7F 7F70888888888888888F07F7F7F7F7F7F9F0888888888888888F0F7F7F7F7F7F 7F708888888888888F8F0000000000000000888888888888888F3330DDDDDDDD 03333338F3FFFF3F8F333330D0000D0D03333338F88883838F333330DDDDDDDD 03333338F3FF3FFF8F333330D00D000003333338F883888883333330DDDD0FF0 33333338F3FF8F3833333330D07D0F0333333338F8838F8333333330DDDD0033 33333338FFFF8833333333300000033333333338888883333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PrintShopingList1Click end object SpeedButton9: TSpeedButton Left = 66 Top = 33 Width = 32 Height = 32 Hint = 'Compare' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003 0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000 0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3 CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7 CCC77777737773777377330399930003CCC3337F737F7773737F370399933333 CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777 CCC77777777777777377330333333333CCC3337F33333333737F370333333333 0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777 77777777777777777777333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = Compare1Click end object SpeedButton10: TSpeedButton Left = 98 Top = 33 Width = 32 Height = 32 Hint = 'Weight' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337333733373 3373337F3F7F3F7F3F7F33737373737373733F7F7F7F7F7F7F7F770000000000 000077777777777777773303333333333333337FF333333F33333709333333C3 333337773F3FF373F333330393993C3C33333F7F7F77F7F7FFFF77079797977C 77777777777777777777330339339333C333337FF73373F37F33370C333C3933 933337773F3737F37FF33303C3C33939C9333F7F7F7FF7F777FF7707C7C77797 7C97777777777777777733033C3333333C33337F37F33333373F37033C333333 33C3377F37333333337333033333333333333F7FFFFFFFFFFFFF770777777777 77777777777777777777333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = EnterData1Click end object SpeedButton11: TSpeedButton Left = 130 Top = 33 Width = 32 Height = 32 Hint = 'Add Food Item' Glyph.Data = { 50020000424D500200000000000076000000280000001C0000001C0000000100 040000000000C001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777000077777777777777777777777777770000777777777777 77777777777777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777F0F000000 000FFFFFFF7777770000777F00FFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFF997777770000777FFFFFF000000FFFFF997777770000777F00000FFF FFFFFFFF997777770000777FFFFFFFFFFFFFFFFF997777770000777FFFFFF000 000FF999999997770000777F00000FFFFFFFF999999997770000777FFFFFFFFF FFFFFFFF997777770000777FFFFFFFFFFFFFFFFF997777770000777FFF000000 0FFFFFFF997777770000777F00FFFFFFF000FFFF997777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777777777777 7777777777777777000077777777777777777777777777770000777777777777 7777777777777777000077777777777777777777777777770000000000000000 0000000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = Add1Click end object SpeedButton12: TSpeedButton Left = 162 Top = 33 Width = 32 Height = 32 Hint = 'Delete Food Item' Glyph.Data = { 50020000424D500200000000000076000000280000001C0000001C0000000100 040000000000C001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777000077777777777777777777777777770000777777777777 77777777777777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777F0F000000 000FFFFFFF7777770000777F00FFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFF000000FFFFFFF7777770000777F00000FFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFF000 000FF999999997770000777F00000FFFFFFFF999999997770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFF000000 0FFFFFFFFF7777770000777F00FFFFFFF000FFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777FFFFFFFFF FFFFFFFFFF7777770000777FFFFFFFFFFFFFFFFFFF7777770000777777777777 7777777777777777000077777777777777777777777777770000777777777777 7777777777777777000077777777777777777777777777770000000000000000 0000000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = Delete1Click end object SpeedButton13: TSpeedButton Left = 162 Top = 2 Width = 32 Height = 32 Hint = 'Load Menu' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300787000333 3333333333333333333330078700033333333333333333333333300000000333 333333333333333333333000000000000000333333333333333330FFFFFF0F8F FFF0333333333333333330FFFFFF0FF8F8F0333333333333333330CCCCCC080F 0FF03333333333333333333930F9FF08FFF03333333333333333333930F99FF0 0FF033333333333333333339999999FF78F0333333333333333333399999999F 8FF03333333333333333333399999987F0003333333333333333333330F99F8F 00333333333333333333333330F9F8FF03333333333333333333333330000000 3333333333333333333333333333333333333333333333333333000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = loadmealClick end object SpeedButton2: TSpeedButton Left = 2 Top = 2 Width = 32 Height = 32 Hint = 'Exit Program' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 03333377777777777F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F333333337F333301111111110333337F333333337F33330111111111 0333337F3333333F7F333301111111B10333337F333333737F33330111111111 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11 0333337F377777337F333301111111110333337F333333337F33330111111111 0333337FFFFFFFFF7F33330000000000033333777777777773330000} NumGlyphs = 2 OnClick = closeClick end object SpeedButton14: TSpeedButton Left = 34 Top = 2 Width = 32 Height = 32 Hint = 'Copy Meal' Glyph.Data = { 9E050000424D9E05000000000000360400002800000014000000120000000100 0800000000000000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8 A400000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707 0707070707070707070707070707070707070000070707070707070707070700 000707070700FF000707070707070707070700FF0007070700FFFF0007070707 070707070700FFFB00070700FFFFFF00070707070707070700FFFBFF00070700 FF00FF00070707070707070700FB00FB0007070000FFFF000707070700070707 0000FBFF00070700FFFFFF00070707070000070700FBFFFB000707000000FF00 0700000000000007000000FF00070700FFFFFF00070000000000000700FBFFFB 000707000000FF000707070700000707000000FF00070700FFFFFF0007070707 0007070700FBFFFB0007070000FFFF0007070707070707070000FBFF00070700 FF04FF00070707070707070700FF00FB0007070700FFFF000707070707070707 0700FBFF000707070700FF000707070707070707070700FB0007070707070000 0707070707070707070707000007070707070707070707070707070707070707 0707} OnClick = copymealClick end object SpeedButton15: TSpeedButton Left = 66 Top = 2 Width = 32 Height = 32 Hint = 'Paste Meal' Glyph.Data = { C6050000424DC605000000000000360400002800000014000000140000000100 0800000000000000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8 A400000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707 0707070707070707070707070707070707070707070707070700000000000000 0007070707070707070707070700FBFFFBFFFBFF000707070000000000000000 0000FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFFFBFFFBFF00070700 FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF07FF07FF0700FBFF FBFFFBFF00070700FF07FF07FF07FF07FF00FFFBFFFBFFFB0007070007FF07FF 000000000700FBFFFBFFFBFF00070700FF07FF07FF000000FF00FFFBFFFB0000 0007070007FF07FF000000000700FBFFFBFF000007070700FF07FF000000FF00 FF000000000000070707070007FF000000FF07FF07FF00070707070707070700 FF07FF00FF07FF07FF070007070707070707070007FF07FF07FF07FF07FF0007 0707070707070700FF07000000000000FF0700070707070707070707000000FC FEFCFE00000007070707070707070707070700FEFCFEFC000707070707070707 0707070707070700000000070707070707070707070707070707070707070707 07070707070707070707} OnClick = pastemealClick end object SpeedButton16: TSpeedButton Left = 98 Top = 2 Width = 32 Height = 32 Hint = 'Clear Meal' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF005FFFFFFFFF00 0F5558888F888555F5550FFFFFFFFFFFFF558888888855F855550FFFFFFFFFFF FF5588F5888F585555550FFFFFFFFFFFFF5588FF588F5FF555555F0000FF00FF FF55588FF88588FF55555FFFFFF0110FFF555588F858888FF5555FF0FF099910 FF5555FF85888888FF555F0FFF0999910F55588F5F88888885F55FF00FF09990 3055588F85F88888585F50FFFFFF090B03055588585588858585500F0F0FF0B0 B03055555F55585858585FFFFFFFFF0B0B3355558555558585555000F0F0FFF0 BBB35555F55555585F555FFFFFFFFFFF0BBB55585555555585F5555555555555 50BB555555555555585F555555555555550B5555555555555585000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = Clear1Click end object SpeedButton17: TSpeedButton Left = 130 Top = 2 Width = 32 Height = 32 Hint = 'Save Menu' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 OnClick = SavemenuClick end end object GroupBox1: TGroupBox Left = 250 Top = 228 Width = 352 Height = 101 Caption = 'Menu Values' TabOrder = 6 object Label7: TLabel Left = 7 Top = 23 Width = 47 Height = 15 Caption = 'Calories' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 6 Top = 43 Width = 34 Height = 15 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 7 Top = 62 Width = 41 Height = 15 Caption = 'Protein' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object mvcal: TLabel Left = 73 Top = 22 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object mvcarbo: TLabel Left = 73 Top = 43 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object mvpro: TLabel Left = 73 Top = 61 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Left = 104 Top = 43 Width = 43 Height = 15 Caption = 'Sodium' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 104 Top = 62 Width = 25 Height = 15 Caption = 'Chol' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object mvfat: TLabel Left = 196 Top = 21 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object mvna: TLabel Left = 196 Top = 42 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object mvchol: TLabel Left = 196 Top = 60 Width = 24 Height = 15 Alignment = taRightJustify Caption = 'XXX' Font.Color = clBlue Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label26: TLabel Left = 104 Top = 23 Width = 17 Height = 15 Caption = 'Fat' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label27: TLabel Left = 272 Top = 10 Width = 33 Height = 14 Caption = 'Protein' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label28: TLabel Left = 237 Top = 10 Width = 29 Height = 14 Caption = 'Carbo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label29: TLabel Left = 315 Top = 10 Width = 15 Height = 14 Caption = 'Fat' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object TPanel Left = 233 Top = 23 Width = 105 Height = 70 TabOrder = 0 object Shape4: TShape Left = 8 Top = 40 Width = 25 Height = 30 Brush.Color = clYellow end object Shape5: TShape Left = 40 Top = 40 Width = 25 Height = 30 Brush.Color = clFuchsia end object Shape6: TShape Left = 73 Top = 40 Width = 25 Height = 30 Brush.Color = clAqua end object Label10: TLabel Left = 11 Top = 1 Width = 16 Height = 14 Alignment = taCenter Caption = '0%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 46 Top = 1 Width = 16 Height = 14 Alignment = taCenter Caption = '0%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 80 Top = 1 Width = 16 Height = 14 Alignment = taCenter Caption = '0%' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end end end object MainMenu1: TMainMenu Left = 15 Top = 20 object Main1: TMenuItem Caption = '&Main' ShortCut = 0 object MergeOldCALORIEDBT1: TMenuItem Caption = '&Merge Old CALORIE.DBT' ShortCut = 0 OnClick = MergeOldCALORIEDBT1Click end object MergeOtherFOODITEMDBT1: TMenuItem Caption = 'Mer&ge Other FOODITEM.DBT' ShortCut = 0 OnClick = MergeOtherFOODITEMDBT1Click end object N8: TMenuItem Caption = '-' ShortCut = 0 end object OrderForm1: TMenuItem Caption = '&Order Form' ShortCut = 0 OnClick = OrderForm1Click end object Register1: TMenuItem Caption = '&Register' ShortCut = 0 OnClick = Register1Click end object N7: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object FoodItem1: TMenuItem Caption = '&Food Item' ShortCut = 0 object Add1: TMenuItem Caption = '&Add Food Item' ShortCut = 0 OnClick = Add1Click end object Modify1: TMenuItem Caption = '&Modify Food Item' ShortCut = 0 OnClick = Modify1Click end object Delete1: TMenuItem Caption = '&Delete Food Item' ShortCut = 0 OnClick = Delete1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object FoodItemPlanner1: TMenuItem Caption = 'Food Item Planner' ShortCut = 0 OnClick = FoodItemPlanner1Click end end object Menu1: TMenuItem Caption = '&Menu' ShortCut = 0 object Load1: TMenuItem Caption = '&Load' ShortCut = 0 OnClick = loadmealClick end object SaveAs1: TMenuItem Caption = 'Save &As' ShortCut = 0 OnClick = SavemenuClick end object Clear1: TMenuItem Caption = '&Clear Meal' ShortCut = 0 OnClick = Clear1Click end object CopyMeal1: TMenuItem Caption = 'Copy &Meal' ShortCut = 0 OnClick = copymealClick end object PasteMeal1: TMenuItem Caption = '&Paste Meal' ShortCut = 0 OnClick = pastemealClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object ClearMenu1: TMenuItem Caption = 'Clear Men&u' ShortCut = 0 OnClick = ClearMenu1Click end end object Print1: TMenuItem Caption = '&Print' ShortCut = 0 object PrintPreview1: TMenuItem Caption = 'Menu Print Pre&view' ShortCut = 0 OnClick = PrintPreview1Click end object ShoppingListPreview1: TMenuItem Caption = 'S&hopping List Preview' ShortCut = 0 OnClick = ShoppingListPreview1Click end object N5: TMenuItem Caption = '-' ShortCut = 0 end object PrintShopingList1: TMenuItem Caption = 'Print &Shopping List' ShortCut = 0 OnClick = PrintShopingList1Click end object PrintMenu1: TMenuItem Caption = '&Print Menu' ShortCut = 0 OnClick = PrintMenu1Click end object PrintWeightGraph1: TMenuItem Caption = 'Print &Weight Graph' ShortCut = 0 OnClick = PrintWeightGraph1Click end object N6: TMenuItem Caption = '-' ShortCut = 0 end object PrintSetup1: TMenuItem Caption = 'P&rint Setup' ShortCut = 0 OnClick = PrintSetup1Click end end object Compare1: TMenuItem Caption = '&Compare' ShortCut = 0 OnClick = Compare1Click end object Weight1: TMenuItem Caption = '&Weight' ShortCut = 0 OnClick = EnterData1Click end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object General1: TMenuItem Caption = '&General' ShortCut = 0 OnClick = General1Click end object LowCalorie1: TMenuItem Caption = '&Low Calorie' ShortCut = 0 OnClick = LowCalorie1Click end object Diabetic1: TMenuItem Caption = '&Diabetic' ShortCut = 0 OnClick = Diabetic1Click end object LowSodium1: TMenuItem Caption = 'Low &Sodium' ShortCut = 0 OnClick = LowSodium1Click end object LowCholesterol1: TMenuItem Caption = 'Low &Cholesterol' ShortCut = 0 OnClick = LowCholesterol1Click end object FDAGuidelines1: TMenuItem Caption = '&RDA Guidelines' ShortCut = 0 OnClick = FDAGuidelines1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object Tutor1: TMenuItem Caption = 'Tutor' ShortCut = 0 OnClick = Tutor1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object About1: TMenuItem Caption = '&About' ShortCut = 0 OnClick = About1Click end end end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Left = 43 Top = 20 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Left = 73 Top = 20 end object PrinterSetupDialog1: TPrinterSetupDialog Left = 101 Top = 20 end end